home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / visitor.dxr / Internal_4_categoryObjectScript.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  414 b   |  24 lines
  1. property categoryName, categoryLimits, currentEvent
  2.  
  3. on new me, aCategory, limits
  4.   set categoryName to aCategory
  5.   set categoryLimits to limits
  6.   return me
  7. end
  8.  
  9. on mGetName me
  10.   return categoryName
  11. end
  12.  
  13. on mGetLowerLimit me
  14.   return getAt(categoryLimits, 1)
  15. end
  16.  
  17. on mGetUpperLimit me
  18.   return getAt(categoryLimits, 2)
  19. end
  20.  
  21. on mGetNumberOfEvents me
  22.   return getAt(categoryLimits, 2) - getAt(categoryLimits, 1)
  23. end
  24.